%% Table: Model Fit

    % print table
    %filename = '../../output/tables/endogtarget_model_fit.tex';       
    filename = '../../output/tables/TableA21.tex';       
    delete(filename)
    diary(filename)
    diary on    
    fprintf('\\begin{tabular}{lccccc}'); fprintf('\n');
    fprintf('\\hline\\hline\\\\[-0.8em]'); fprintf('\n');  
    fprintf('& \\multicolumn{5}{c}{Quintiles of average wage per worker} \\\\[0.2em] \\cline{2-6}\\\\[-0.8em]'); fprintf('\n');   
    fprintf('& \\hspace{0.6cm}1\\hspace{0.6cm} & \\hspace{0.6cm}2\\hspace{0.6cm} & \\hspace{0.6cm}3\\hspace{0.6cm} & \\hspace{0.6cm}4\\hspace{0.6cm} & 5 (largest) \\\\[0.2em] \\hline\\\\[-0.8em]'); fprintf('\n');    
    
    fprintf('Mean number of suppliers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.1f', data.mean_indegree_d*data.N); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Exogenous Target ($\\nu_c \\rightarrow \\infty$)'); fprintf(' &%.1f', model.mean_indegree_d*data.N ); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Endogenous Target 1 ($\\nu_c$ = %.2f)', result1.param.nu_c); fprintf(' &%.1f', result1.model.mean_indegree_d*data.N ); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Endogenous Target 2 ($\\nu_c$ = %.2f)', result2.param.nu_c); fprintf(' &%.1f', result2.model.mean_indegree_d*data.N ); fprintf('\\\\'); fprintf('\n');
    
    fprintf('Mean number of customers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.1f', data.mean_outdegree_d*data.N); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Exogenous Target ($\\nu_c \\rightarrow \\infty$)'); fprintf(' &%.1f', model.mean_outdegree_d*data.N ); fprintf('\\\\'); fprintf('\n');   
    fprintf('\\quad Endogenous Target 1 ($\\nu_c$ = %.2f)', result1.param.nu_c); fprintf(' &%.1f', result1.model.mean_outdegree_d*data.N ); fprintf('\\\\'); fprintf('\n');   
    fprintf('\\quad Endogenous Target 2 ($\\nu_c$ = %.2f)', result2.param.nu_c); fprintf(' &%.1f', result2.model.mean_outdegree_d*data.N ); fprintf('\\\\'); fprintf('\n');   
    
    fprintf('Standard deviation of log sales & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.2f', data.sd_lnsales_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Exogenous Target ($\\nu_c \\rightarrow \\infty$)'); fprintf(' &%.2f', sqrt(model.var_lnsales_d)); fprintf('\\\\'); fprintf('\n');     
    fprintf('\\quad Endogenous Target 1 ($\\nu_c$ = %.2f)', result1.param.nu_c); fprintf(' &%.2f', sqrt(result1.model.var_lnsales_d)); fprintf('\\\\'); fprintf('\n');     
    fprintf('\\quad Endogenous Target 2 ($\\nu_c$ = %.2f)', result2.param.nu_c); fprintf(' &%.2f', sqrt(result2.model.var_lnsales_d)); fprintf('\\\\'); fprintf('\n');     
    
    fprintf('Share of total network sales & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.2f', data.network_sales_share_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Exogenous Target ($\\nu_c \\rightarrow \\infty$)'); fprintf(' &%.2f', model.network_sales_share_d); fprintf('\\\\'); fprintf('\n'); 
    fprintf('\\quad Endogenous Target 1 ($\\nu_c$ = %.2f)', result1.param.nu_c); fprintf(' &%.2f', result1.model.network_sales_share_d); fprintf('\\\\'); fprintf('\n'); 
    fprintf('\\quad Endogenous Target 2 ($\\nu_c$ = %.2f)', result2.param.nu_c); fprintf(' &%.2f', result2.model.network_sales_share_d); fprintf('\\\\'); fprintf('\n'); 
    
    fprintf('Fraction of exporters & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.2f', data.exporter_share_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Exogenous Target ($\\nu_c \\rightarrow \\infty$)'); fprintf(' &%.2f', model.exporter_share_d); fprintf('\\\\'); fprintf('\n');    
    fprintf('\\quad Endogenous Target 1 ($\\nu_c$ = %.2f)', result1.param.nu_c); fprintf(' &%.2f', result1.model.exporter_share_d); fprintf('\\\\'); fprintf('\n');    
    fprintf('\\quad Endogenous Target 2 ($\\nu_c$ = %.2f)', result2.param.nu_c); fprintf(' &%.2f', result2.model.exporter_share_d); fprintf('\\\\'); fprintf('\n');    
    
    fprintf('Export intensity of exporters & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); fprintf(' &%.2f', data.export_intensity_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Exogenous Target ($\\nu_c \\rightarrow \\infty$)'); fprintf(' &%.2f', model.export_intensity_d); fprintf('\\\\'); fprintf('\n');  
    fprintf('\\quad Endogenous Target 1 ($\\nu_c$ = %.2f)', result1.param.nu_c); fprintf(' &%.2f', result1.model.export_intensity_d); fprintf('\\\\'); fprintf('\n');  
    fprintf('\\quad Endogenous Target 2 ($\\nu_c$ = %.2f)', result2.param.nu_c); fprintf(' &%.2f', result2.model.export_intensity_d); fprintf('\\\\'); fprintf('\n');  
    
    fprintf('Unweighted average log wage of suppliers  & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data &-'); fprintf(' &%.2f', data.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Exogenous Target ($\\nu_c \\rightarrow \\infty$) &-'); fprintf(' &%.2f', model.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');   
    fprintf('\\quad Endogenous Target 1 ($\\nu_c$ = %.2f) &-', result1.param.nu_c); fprintf(' &%.2f', result1.model.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');   
    fprintf('\\quad Endogenous Target 2 ($\\nu_c$ = %.2f) &-', result2.param.nu_c); fprintf(' &%.2f', result2.model.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');   
    
    fprintf('Weighted average log wage of suppliers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data &-'); fprintf(' &%.2f', data.avg_wgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Exogenous Target ($\\nu_c \\rightarrow \\infty$) &-'); fprintf(' &%.2f', model.avg_wgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');    
    fprintf('\\quad Endogenous Target 1 ($\\nu_c$ = %.2f) &-', result1.param.nu_c); fprintf(' &%.2f', result1.model.avg_wgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');    
    fprintf('\\quad Endogenous Target 2 ($\\nu_c$ = %.2f) &-', result2.param.nu_c); fprintf(' &%.2f', result2.model.avg_wgt_lnwageS_d4); fprintf('\\\\[0.2em]'); fprintf('\n');    

    fprintf('\\hline\\\\[-0.8em]'); fprintf('\n');
    
    fprintf('Shift-share IV coefficient ($5\\%%$ export shock) & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data & \\multicolumn{2}{c}{%.2f\\%%}', (data.bartik_wage_response-1)*100); fprintf('& & & \\\\'); fprintf('\n');
    fprintf('\\quad Exogenous Target ($\\nu_c \\rightarrow \\infty$) & \\multicolumn{2}{c}{%.2f\\%%}', (bartik.avg_wage_response-1)*100); fprintf('& & & \\\\'); fprintf('\n');     
    fprintf('\\quad Endogenous Target 1 ($\\nu_c$ = %.2f) & \\multicolumn{2}{c}{%.2f\\%%}', result1.param.nu_c, (result1.bartik.avg_wage_response-1)*100); fprintf('& & & \\\\'); fprintf('\n');     
    fprintf('\\quad Endogenous Target 2 ($\\nu_c$ = %.2f) & \\multicolumn{2}{c}{%.2f\\%%}', result2.param.nu_c, (result2.bartik.avg_wage_response-1)*100); fprintf('& & & \\\\[0.2em]'); fprintf('\n');     

    fprintf('\\hline\\hline'); fprintf('\n');
    fprintf('\\end{tabular}'); fprintf('\n');    
    diary off
    

    
